home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00029.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  584 b   |  23 lines
  1. on exitFrame
  2.   global mnv, objc, psyprop, advance, ppl, foes
  3.   psyprop = "eagle"
  4.   sprite(2).visible = 1
  5.   set the member of sprite getAt(ppl, 1) to member(30, 1)
  6.   setAt(mnv, 1, 1)
  7.   setAt(objc, 2, 0)
  8.   set the keyDownScript to EMPTY
  9.   set the keyUpScript to "throw(15)"
  10.   if advance = 1 then
  11.     foes(getAt(foes, 1), getAt(ppl, 2))
  12.   else
  13.     if (advance = 2) or (advance = 3) then
  14.       foes(getAt(foes, 2), getAt(ppl, 3))
  15.       foes(getAt(foes, 3), getAt(ppl, 4))
  16.     else
  17.       if advance = 4 then
  18.         foes(getAt(foes, 1), getAt(ppl, 2))
  19.       end if
  20.     end if
  21.   end if
  22. end
  23.